home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software USA 5 #2
/
Software USA Volume 5.02.iso
/
mac
/
home&office
/
2
/
GEDitCOM Formats
/
Pedigree Format
< prev
Wrap
Text File
|
1998-12-01
|
30KB
|
1,793 lines
@@GeDF@@_Unknown_ Printing
@@GeDF@@Individual Events
BIRT Birth
CHR Christening
DEAT Death
BURI Burial
CREM Cremation
ADOP Adoption
BAPM Baptism
BARM Bar Mitzvah
BASM Bas Mitzvah
BLES Blessing
CAST Caste Name
CENS Census
CHRA Adult Christening
CONF Confirmation
DSCR Physical Description
EDUC Education
EMIG Emigration
EVEN Generic Event
FCOM First Communion
GRAD Graduation
IDNO National ID Number
IMMI Immigration
NATI National or Tribal Origin
NATU Naturalization
NCHI Number of Children
NMR Count of Marriages
OCCU Occupation
ORDN Ordination
PROB Probate
PROP Possessions
RELI Religious Affiliation
RETI Retirement
RESI Residence
SSN Social Security Number
TITL Nobility Type Title
WILL Will
@@GeDF@@Family Events
ANUL Annulment
CENS Census
DIV Divorce
DIVF Divorce Filed
EVEN Generic Event
ENGA Engagement
MARB Marriage Bann
MARC Marriage Contract
MARL Marriage License
MARR Marriage
MARS Marriage Settlement
@@GeDF@@GEDCOM Tag Names
ABBR Short Title
ADOP Adoption
ADR1 Address Line 1
ADR2 Address Line 2
AGNC Agency
ANCE Gens. of Ancestors
ANUL Anulment
AFN Ancestral File No.
BAPM Baptism
BARM Bar Mitzvah
BASM Bas Mitzvah
BLES Blessing
BURI Burial
CAST Caste Name
CENS Census
CHAR Character Set
CHR Christ'ing
CHRA Adult Chr
CITY City
CONF Confirmation
COPR Copyright
CREM Cremation
CTRY Country
DATE Date
DEAT Death
DESC Gens. of Descendents
DEST Dest File
DIV Divorce
DIVF Div. Filed
DSCR Physical Description
EMIG Emigration
ENGA Engaged
EVEN Event
EDUC Education
FAMF Family File
FCOM First Communion
FILE File
FORM Form
GRAD Graduation
IDNO Nat. ID No.
IMMI Immigration
LANG Language
MARB Marr. Bann
MARC M. Contract
MARL M. License
MARR Marriage
MARS Settlement
NATI Nationality
NATU Nat'rlized
NCHI No. of Children
NMR No. of Marriages
OCCU Occupation
ORDI Ordinance Process Flag
ORDN Ordination
PEDI Pedigree
PHON Phone No.
PLAC Place
POST Postal Code
PROB Probate
PORP Possessions
QUAY Quality
REFN User Ref. No.
RELI Religion
RESI Residence
RESN Restriction
RETI Retirement
RFN Record File No.
RIN Record ID
SSN Soc. Sec. No.
STAE State
TEMP Temple Code
TITL Title
TYPE Type
VERS Version
WILL Will
@@GeDF@@@WindowRects
11 42 540 620
41 66 565 607
47 185 427 474
96 161 493 463
42 141 461 510
81 198 529 322
96 127 451 270
67 206 458 332
57 159 462 196
51 106 566 469
4 42 365 472
21 55 637 474
85 47 539 400
158 267 508 595
33 107 499 421
@@GeDF@@@Tree Preferences
0 @PREF@ @TRE
1 @STY Name
2 @FNT Helvetica
2 @SZE 9
2 @FCE Plain
1 @STY Title
2 @FNT Helvetica
2 @SZE 10
2 @FCE Bold
1 @CLR Males
2 @RGB 3276 48495 63568
1 @CLR Females
2 @RGB 63568 41942 59636
1 @NUM Short Box Width
2 @VAL 67
1 @NUM Full Box Width
2 @VAL 120
1 @NUM Box Height
2 @VAL 25
1 @NUM Box Separation
2 @VAL 10
1 @NUM Line Separation
2 @VAL 8
1 @NUM Top Margin
2 @VAL 5
1 @NUM Left Margin
2 @VAL 5
1 @TXT Box Style
2 @TVL Simple Box
1 @TXT Name Display
2 @TVL Name & Lifepan 2 Lines
1 @CKB Full Names
2 @CVL N
1 @CKB Use Color
2 @CVL Y
1 @VRS 1
@@GeDF@@@Index Preferences
0 @PREF@ @IDX
1 @STY Index
2 @FNT Monaco
2 @SZE 9
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 0
1 @CKB Require Double Clicks
2 @CVL N
1 @IPU Clicking Opens
2 @IPV Y
1 @IPU Shift-Clicking Opens
2 @IPV N
1 @VRS 1
@@GeDF@@_Unknown_ Editing
@@GeDF@@@Editing Preferences
0 @PREF@ @EDT
1 @STY Editing
2 @FNT Times
2 @SZE 10
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 0
1 @STY Labels
2 @FNT Times
2 @SZE 10
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 0
1 @STY Static
2 @FNT Times
2 @SZE 9
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 0
1 @STY Buttons
2 @FNT Times
2 @SZE 10
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 65000
1 @CLR Revision
2 @RGB 65000 0 0
1 @CLR Background
2 @RGB 65535 65535 65535
1 @CLR Field Top
2 @RGB 30000 30000 30000
1 @CLR Field Bottom
2 @RGB 60000 60000 60000
1 @CLR Button
2 @RGB 54394 54394 54394
1 @CLR Button Top
2 @RGB 60947 60947 60947
1 @CLR Button Bottom
2 @RGB 32767 32767 32767
1 @NUM Line Separation
2 @VAL -1
1 @NUM Left Margin
2 @VAL 2
1 @NUM Min Edit Lines
2 @VAL 5
1 @NUM Max Edit Lines
2 @VAL 10
1 @NUM Button Corners
2 @VAL 0
1 @CKB Date mm/dd/yy
2 @CVL Y
1 @CKB Track Changed Dates
2 @CVL Y
1 @VRS 1
1 @CKB Create User ID
2 @CVL Y
@@GeDF@@INDI Record Editing
if nowprinting
useEditingTmpls
text \BM*M\
hskip 0
endif
settab 178
settab 345
settab 512
rightmargin 514
ifnot nowprinting
style label
size 14
face bold
width 300
text "Pedigree Chart for "
text *NAME
else
HeaderText \LM*e;RM*E;PU;FNTimes;FS14;R+\
HeaderText Chart No. \HR24p;VS0\
HeaderText \PO;FS18;BO;C+\Pedigree Chart\VS0\
HeaderText *NAME
FooterText " "
endif
ifnot nowprinting
leftskip 50
show NOTE INDI
leftskip 12
newline 3
else
style label
text Number 1 on this chart is the same
justify center
width 175
border frame ltr
newline
style label
text as Number ____ on Chart No. ____
justify center
width 175
border frame lbr
endif
endtoolbar
!------------------ Column 1 -----------------
set dtop #vpos
style label
height 119
! Father
set nmid 2
show _PAT *FAMC.HUSB
show _MAR *FAMC
newline
style label
height 64
border frame l
! This Person
show NAME INDI
show BIRT Born:
show DEAT Died:
show _MAR *FAMS
newline
style label
height 9
border frame l
! This Person's spouse
newline
get *SEX
if M
get *FAMS.WIFE
else
get *FAMS.HUSB
endif
ifempty
style label
else
ifnot nowprinting
style button
link *it
else
style label
face bold
endif
text *it.NAME
endif
border frame bl
width 145
newline
style static
border frame l
text Spouse
newline
style label
height 21
border frame l
! Mother
show _MAT *FAMC.WIFE
leftskip 178
moveto #dtop
!------------------ Column 2 -----------------
style label
height 42
! PP
show _PAT *FAMC.HUSB.FAMC.HUSB
show _MAR *FAMC.HUSB.FAMC
newline
style label
height 71
border frame l
! PM
show _MAT *FAMC.HUSB.FAMC.WIFE
style label
height 106
! MP
show _PAT *FAMC.WIFE.FAMC.HUSB
show _MAR *FAMC.WIFE.FAMC
newline
style label
height 71
border frame l
! MM
show _MAT *FAMC.WIFE.FAMC.WIFE
leftskip 345
moveto #dtop
!------------------ Column 3 -----------------
style label
height 2
! PPP
show _PAT *FAMC.HUSB.FAMC.HUSB.FAMC.HUSB
show _MAR *FAMC.HUSB.FAMC.HUSB.FAMC
newline
style label
height 3
border frame l
! PPM
show _MAT *FAMC.HUSB.FAMC.HUSB.FAMC.WIFE
style label
height 6
! PMP
show _PAT *FAMC.HUSB.FAMC.WIFE.FAMC.HUSB
show _MAR *FAMC.HUSB.FAMC.WIFE.FAMC
newline
style label
height 3
border frame l
! PMM
show _MAT *FAMC.HUSB.FAMC.WIFE.FAMC.WIFE
style label
height 6
! MPP
show _PAT *FAMC.WIFE.FAMC.HUSB.FAMC.HUSB
show _MAR *FAMC.WIFE.FAMC.HUSB.FAMC
newline
style label
height 3
border frame l
! MPM
show _MAT *FAMC.WIFE.FAMC.HUSB.FAMC.WIFE
style label
height 6
! MMP
show _PAT *FAMC.WIFE.FAMC.WIFE.FAMC.HUSB
show _MAR *FAMC.WIFE.FAMC.WIFE.FAMC
newline
style label
height 3
border frame l
! MMM
show _MAT *FAMC.WIFE.FAMC.WIFE.FAMC.WIFE
leftskip 2
newline
HideExcess
ZoomWindow
@@GeDF@@NAME Editing
newline
get *msg
if INDI
hskip -22
style label
text 1.
justify right
width 20
hskip 2
style editvalue
ifnot nowprinting
border field
else
border frame lb
face bold
endif
width 253
else
! start new line and label
style label
text Name:
justify right
tabwidth 1
! edit name
hskip 5
style editvalue
border field
width -1
endif
@@GeDF@@BIRT Editing
newline
style static
border frame l
text *msg
width 28
show DATE OK
show PLAC OK
HideExcess
@@GeDF@@DATE Editing
get *msg
if FG
style editvalue
border frame lrb
tabwidth 1
content date
elseif Head
style label
text Date:
justify right
tabwidth 1
hskip 5
style editvalue
border field
width -1
content date
elseif OK
ifnot nowprinting
style editvalue
border field
content date
else
style label
text *valu
endif
width 225
endif
@@GeDF@@DEAT Editing
use BIRT Editing
@@GeDF@@NOTE Editing
ifnotempty *msg
get *rec
if INDI
newline
elseif FAM
newline
endif
style button
! has NOTEs
if tagexists
text Notes
get *valu
if validlink
link *valu
else
structlink NOTE
endif
! does not have NOTEs
else
text Add Notes
if "Header"
structlink NOTE
else
newlink
endif
endif
font geneva
size 9
justify center
border 3dbutton
width 60
black
get *msg
if INDI
hskip 3
style button
font geneva
size 9
menulink View:Families
text Families
justify center
width 60
border 3dbutton
black
hskip 3
style button
font geneva
size 9
menulink View:Children
text Children
justify center
width 60
border 3dbutton
black
hskip 3
style button
font geneva
size 9
menulink View:Spouse
text Spouses
justify center
width 60
border 3dbutton
black
hskip 3
style button
font geneva
size 9
menulink View:Siblings
text Siblings
justify center
width 60
border 3dbutton
black
elseif FAM
hskip 3
style button
text Attach Child
menulink Attach:Child
justify center
border 3dbutton
font geneva
size 9
black
hskip 3
style button
text Detach Child
menulink Detach:Child
justify center
border 3dbutton
font geneva
size 9
black
endif
endif
@@GeDF@@ADDR Editing
! address label
newline
style label
text Address:
justify right
tabwidth 1
hskip 5
style editcont
border field
width -1
@@GeDF@@SUBM Record Editing
newline 3
settab 80
settab 120
show NAME
show ADDR
show PHON
show LANG
HideExcess
@@GeDF@@SUBM Editing
get *rec
if SUBN
get HEAD
endif
if HEAD
style button
get *valu
if validlink
else
text "Link "
endif
text Submitter
newlink
justify center
width 100
border 3dbutton
black
font geneva
size 9
hskip 5
endif
@@GeDF@@NOTE Record Editing
style edittext
size 12
@@GeDF@@REPO Record Editing
newline 3
show NAME
show ADDR
leftskip 82
newline 3
show NOTE OK
HideExcess
@@GeDF@@AUTH Editing
newline
style label
text Author:
justify right
tabwidth 1
hskip 5
style editcont
border field
width -1
@@GeDF@@TITL Editing
newline
style label
text Title:
justify right
tabwidth 1
hskip 5
style editcont
border field
width -1
@@GeDF@@SOUR Record Editing
settab 90
maxlines 2
newline 3
show AUTH
show TITL Source
show ABBR
minlines 3
maxlines 5
show PUBL
newline 5
tab 1
hskip 5
show REPO
show NOTE Source
newline 5
show DATA
show TEXT
HideExcess
@@GeDF@@PUBL Editing
newline
style label
text Publisher:
justify right
tabwidth 1
hskip 5
style editcont
border field
width -1
@@GeDF@@REPO Editing
! Note buttom
style button
get *valu
if tagexists
text Repository
link *valu
else
text "Link Repository"
newlink
endif
justify center
width 100
border 3dbutton
black
font geneva
size 9
hskip 3
@@GeDF@@PHON Editing
use ABBR Editing
@@GeDF@@SOUR Editing
get *rec
if HEAD
style label
text System ID:
justify right
tabwidth 1
hskip 5
style editvalue
border field
width -1
show NAME
show VERS
show CORP
show DATA
else
endif
@@GeDF@@ABBR Editing
! label on current line
newline
style label
text *name
text :
justify right
tabwidth 1
! edit the date
hskip 5
style editvalue
border field
width -1
@@GeDF@@HEAD Record Editing
settab 90
settab 120
set tab1 90
set tab2 120
newline 3
show SOUR Header
newline 5
tab 1
hskip 5
show SUBM
show SUBN
newline 5
show DEST
show DATE Head
show FILE
show COPR
show GEDC
show CHAR
show LANG
show PLAC Header
newline 5
add tab1 5
leftskip #tab1
show NOTE OK
showall NOTE OK
HideExcess
@@GeDF@@CORP Editing
newline
style label
text Corporation:
justify right
tabwidth 1
hskip 5
style editvalue
border field
width -1
newline
show ADDR
@@GeDF@@COPR Editing
use ABBR Editing
@@GeDF@@SUBN Editing
style button
text Submission
link *valu
justify center
width 100
border 3dbutton
black
font geneva
size 9
hskip 5
@@GeDF@@GEDC Editing
newline
show VERS GEDCOM
cleartabs
settab 120
show FORM GEDCOM Form:
@@GeDF@@DEST Editing
use ABBR Editing
@@GeDF@@FILE Editing
use ABBR Editing
@@GeDF@@OBJE Record Editing
newline 3
style label
width -1
justify center
text This Pedigree Format does display
text " encoded multimedia objects"
border frame ltrb
HideExcess
@@GeDF@@SUBN Record Editing
newline 3
style label
text Submitter:
justify right
tabwidth 2
hskip 5
show SUBM OK
newline 3
newline
show FAMF
show TEMP
show ANCE
show DESC
show ORDI
HideExcess
@@GeDF@@CHAR Editing
use ABBR Editing
@@GeDF@@LANG Editing
use ABBR Editing
@@GeDF@@VERS Editing
! label on current line
style label
get *msg
if
else
text *it
text " "
endif
text Version:
justify right
tabwidth 1
! edit the version
hskip 5
style editvalue
border field
width -1
@@GeDF@@_PAT Editing
newline
hskip -22
style static
text #nmid
text .
width 20
justify right
add nmid 1
hskip 2
get *msg.NAME
ifempty
style label
else
if nowprinting
style label
face bold
else
style button
link *msg
endif
text *it
get #lmgn
if 345
get *msg.FAMC
ifnotempty
text " ->"
endif
endif
endif
tabwidth 1
newline
lineskip -4
style static
tabwidth 1
border frame lt
text Born:
text *msg.BIRT.DATE
newline
style static
tabwidth 1
border frame l
text Plac:
text *msg.BIRT.PLAC
newline
style static
tabwidth 1
border frame l
text Died:
text *msg.DEAT.DATE
newline
style static
tabwidth 1
border frame l
text Plac:
text *msg.DEAT.PLAC
@@GeDF@@PLAC Editing
get *msg
if OK
newline
style static
border frame l
text Plac:
width 28
hskip 0
ifnot nowprinting
style editvalue
border field
else
style label
text *valu
endif
width 225
elseif FG
style label
text Place:
justify right
border frame b
width 40
hskip 0
style editvalue
border frame lrb
tabwidth 2
hskip 0
style label
width 1
border frame r
else if Header
show FORM Place Format:
else if Source
newline
style static
border field
text Place:
tabwidth 1
hskip 0
style editvalue
border field
width -1
endif
@@GeDF@@_MAR Editing
newline
style static
tabwidth 1
border frame l
text Marr:
text *msg.MARR.DATE
newline
style static
tabwidth 1
border frame l
text Plac:
text *msg.MARR.PLAC
lineskip -1
@@GeDF@@_MAT Editing
newline
hskip -22
style static
text #nmid
text .
width 20
justify right
add nmid 1
hskip 2
lineskip -3
get *msg.NAME
ifempty
style label
else
if nowprinting
style label
face bold
else
style button
link *msg
endif
text *it
get #lmgn
if 345
get *msg.FAMC
ifnotempty
text " ->"
endif
endif
endif
border frame bl
tabwidth 1
newline 1
style static
tabwidth 1
text Born:
text *msg.BIRT.DATE
newline
style static
tabwidth 1
text Plac:
text *msg.BIRT.PLAC
newline
style static
tabwidth 1
text Died:
text *msg.DEAT.DATE
newline
style static
tabwidth 1
text Plac:
text *msg.DEAT.PLAC
lineskip -1
@@GeDF@@FAM Record Editing
settab 60
settab 180
settab 225
settab 503
rightMargin 507
ifnot nowprinting
newline 2
style label
size 14
face bold
width -1
text Family Group Chart
else
useEditingTmpls
HeaderText \FNTimes;FS18;C+;BO\
HeaderText Family Group Chart
FooterText " "
endif
ifnot nowprinting
leftskip 50
show NOTE FAM
leftskip 4
newline 6
endtoolbar
newline 6
else
leftskip 4
endif
show HUSB Husband:
show WIFE Wife:
show MARR
hrule
style label
width 1
size 12
border frame l
hskip 0
style label
size 12
tabwidth 4
text " Children"
border frame lr
hskip 0
style label
width 1
size 12
border frame r
set cnum 0
showall CHIL
HideExcess
@@GeDF@@HUSB Editing
style static
width -1
height 2
border frame t
! Name field and line
newline
style static
width 1
border frame l
size 12
hskip 0
style static
tabwidth 1
text *msg
justify right
size 12
border frame ltb
hskip 0
if tagexists
style button
link *valu
text *valu.NAME
else
style label
endif
size 12
tabwidth 3
border frame btr
hskip 0
style static
size 12
border frame r
width 1
! Birth date and place
newline
style label
width 1
border frame l
hskip 0
style label
text Born:
justify right
border frame lb
tabwidth 1
hskip 0
style label
text *valu.BIRT.DATE
tabwidth 1
border frame b
hskip 0
style label
text Place:
justify right
border frame b
width 40
hskip 0
style label
text *valu.BIRT.PLAC
tabwidth 2
border frame rb
hskip 0
style label
border frame r
width 1
! Death date and place
newline
style label
width 1
border frame l
hskip 0
style label
text Died:
justify right
border frame lb
tabwidth 1
hskip 0
style label
text *valu.DEAT.DATE
tabwidth 1
border frame b
hskip 0
style label
text Place:
justify right
border frame b
width 40
hskip 0
style label
text *valu.DEAT.PLAC
tabwidth 2
border frame rb
hskip 0
style label
border frame r
width 1
! Father and Mother
newline
style label
width 1
border frame l
hskip 0
style label
text Father:
justify right
tabwidth 1
border frame lb
hskip 0
get *valu.FAMC.HUSB
ifempty
style label
else
style button
link *it
text *it.NAME
endif
tabwidth 2
border frame b
hskip 0
style label
text Mother:
justify right
width 50
border frame b
hskip 0
get *valu.FAMC.WIFE
ifempty
style static
else
style button
link *it
text *it.NAME
endif
tabwidth 1
border frame rb
hskip 0
style label
border frame r
width 1
@@GeDF@@WIFE Editing
use HUSB Editing
@@GeDF@@MARR Editing
hrule
newline
style label
width 1
border frame l
hskip 0
style label
text Married:
justify right
border frame lb
tabwidth 1
show DATE FG
hskip -1
show PLAC FG
HideExcess
@@GeDF@@CHIL Editing
newline
style label
width 1
border frame l
hskip 0
add cnum 1
style label
ifnot nowprinting
cellbg 0 0 0
rgb 0xFF 0xFF 0xFF
endif
text #cnum
width 16
justify center
face bold
border frame ltbr
hskip 0
style label
width 20
text " Sex: "
text *valu.SEX
width 50
border frame bt
hskip 0
style label
text Name:
width 35
border frame bt
hskip 0
style button
text *valu.NAME
tabwidth 3
link *valu
border frame btr
hskip 0
style label
width 1
border frame r
! Birth date and place
newline
style label
width 1
border frame l
hskip 0
style label
text Born:
justify right
border frame lb
tabwidth 1
hskip 0
style label
text *valu.BIRT.DATE
tabwidth 1
border frame b
hskip 0
style label
text Place:
justify right
border frame b
width 40
hskip 0
style label
text *valu.BIRT.PLAC
tabwidth 2
border frame rb
hskip 0
style label
border frame r
width 1
! Death date and place
newline
style label
width 1
border frame l
hskip 0
style label
text Died:
justify right
border frame lb
tabwidth 1
hskip 0
style label
text *valu.DEAT.DATE
tabwidth 1
border frame b
hskip 0
style label
text Place:
justify right
border frame b
width 40
hskip 0
style label
text *valu.DEAT.PLAC
tabwidth 2
border frame rb
hskip 0
style label
border frame r
width 1
! Child's spouse
newline
style label
width 1
border frame l
hskip 0
style label
text Spouse:
justify right
border frame lb
tabwidth 1
hskip 0
style button
get *valu.SEX
if "M"
get *valu.FAMS.WIFE
else
get *valu.FAMS.HUSB
endif
link *it
text *it.NAME
tabwidth 3
border frame rb
hskip 0
style label
border frame r
width 1
hrule
@@GeDF@@FAMF Editing
! static text with level and tab
newline
get *name
if
style static
text *lev
text " "
text *tag
text " "
else
style label
text *it
text :
endif
tabwidth 2
justify right
! edit field with value
hskip 5
style editvalue
border field
width -1
newline
@@GeDF@@TEMP Editing
use FAMF Editing
@@GeDF@@ANCE Editing
use FAMF Editing
@@GeDF@@DESC Editing
use FAMF Editing
@@GeDF@@ORDI Editing
use FAMF Editing
@@GeDF@@ADR1 Editing
! label on current line
newline
style label
text *name
text :
justify right
width 100
! edit the date
hskip 5
style editvalue
border field
width -1
@@GeDF@@CITY Editing
use ADR1 Editing
@@GeDF@@STAE Editing
use ADR1 Editing
@@GeDF@@POST Editing
use ADR1 Editing
@@GeDF@@CTRY Editing
use ADR1 Editing
@@GeDF@@FORM Editing
! label on current line
style label
get *msg
ifnotempty
text *msg
else
text Form:
endif
justify right
tabwidth 1
! edit the version
hskip 5
style editvalue
border field
width -1
@@GeDF@@TEXT Editing
newline
style label
text Source Text:
justify right
tabwidth 1
! edit the date
hskip 5
style editcont
border field
width -1
@@GeDF@@DATA Editing
get *rec
if HEAD
newline
style label
tabwidth 1
text Source Data:
justify right
hskip 5
style editvalue
border field
width -1
cleartabs
settab #tab2
show DATE Head
show COPR
elseif SOUR
newline
style label
width -1
text Type of Data Recorded in this Source:
show EVEN
show AGNC
newline 5
tab 1
hskip 5
show NOTE Data
newline 5
else
show DATE
show TEXT
endif
@@GeDF@@EVEN Editing
get *rec
if SOUR
style label
tabwidth 1
text "Events:"
justify right
hskip 5
style editvalue
border field
width -1
show DATE Head
show PLAC Source
endif
@@GeDF@@AGNC Editing
use ABBR Editing
@@GeDF@@
@@GeDF@@Current GEDitCOM Format Editing Help
....h..b..U3NcBI/KP/F.I76y.3Nfb......./W..2.QE...6Q..E0K....w../
.Dw...2q..2/HU...Mo..E4Q.../q..0.Uk...6E..E06U...hI./E9S...3Lk.2
/Ko...Ut..E6FU..09Y./EX4...7FE.20JA...fl..E9.k..0ug./.ix...AEk.2
13I...mc..IAiE..1DI./.o5...B2U./1G2...pO..2BQE..1OLzzk...7..3..B
..c..k....c........./k.B..c..k2...c..........E.B..c..kE...c.....
.......B..c..kI...c.........0..B..c..k6...c..........k.B..c..kE.
..c.....p......B..c..k....c.....p......B..c..k2...c...........qY
60.U60.UJ4VdQm/cNKlk65FjQ4ZX64RdRaJn64NjQapVR0pnQ4JXOKNdMm/dPaNj
QapVR4ZjPW/VMaxpR0/ZN4ZoOKtb62R3F2BDHG/4OKlZQm/rO4Ji65JnOKtb65Fc
NG/ENKFdNr7ZNG/4Pr7hMLEi63FcNG/hMKZi65JnNG/jNW/oO4IUI4JYOKRmNKIU
FaxmPK3o64Zn65Fj65NdNLQUMKtY65/mOKto64NjRL6hNqJiNL7VR4ZjPW/kNKFd
Nr7ZNG/XO43mR5AUMKtY65BdPL/gNG/aMKpdP5YUNr7jRL.UMqVVQbFn9W/IO4IU
I4JYOKRmNKIUFaxmPK3o64VVQm/jPalt64ldPKZoNKEUNKFdR4ZiNm/aNK3oRL7Z
QmsUKKxp65BcPrJgN0/pQqIUR4VZ62FZNa3pP5EUFoJ2OLF1HooUFaxmPK3o60Vj
QW/VPaxoO4Jm64BpQrFjPG/aPr7hMLEd65Fj64JYOLEUSKxpQW/YMLFZ643iN0/o
O4Ji64ljMKEUR4VZ63/ZN4ZbQaJZ62NjQapVR0/rO4Ji65ZjRG/rMKto65Fj65/Z
N4ZbQaJZ64BcML7oQm/VPaEUNa3hOKlt64RmPrJk64BcML7oQmsB1JBkNKBdNaZX
62JYOLFdPaQUGKtaPr7hMLFdPqsUNaxm62JVMqUUJ5ZkNG/jNW/GNKBjQaEB1OIU
GIt2GJN7F3J/H0/GNKBjQaFn1G.U60.U63FcNG/oPr.UPqMUNK3XO0/7HYF7JYZ2
JI3A637ZMqxmN0/bOLNZQm/V65BZQaZZQm/jNW/WRLFoPqtn9W/IO4IUNaZmQrEU
MbJoR4xi64BVPW/VN4EUPaxoNLAUPr6UNKFdR0/oO4IUMrJmQaJiR0/iPrFZQmsU
J4VZ657ZPK3dPaZiNm/WRLFoPqtn64FpQ4ldMq3oNG/nPqpZ64BjPKpVPaFn64Zi
65FcNG/KOKJr62pZPbIi1G.U60.U63FcNG/mNLBo64xa65FcNG/rOKtYPrQUNqZq
NLAUMG/aPrJm9KRZPaJmMLFdPqsUQ4JYOKRmNKIUMqVVQbEUNaxm65FcNG/XRL7m
NKto64ZiN4ZqOKFpMKki63FcNG/jPalt64FVR42USKxp64BVPW/ZPbFZQW/dPW/o
O4Zn64NjQapVR0/dQm/dPaNjQapVR4ZjPW/jPW/oO4IUMaZmR4UUMKtY64FZMLFc
64xa65FcOLAUQ57ZQqxi9W/IO4IUQaJnR0/jNW/oO4IURqZiN4xr64Zn64NjQW/q
OKJrOKtb9UoU60.U60/NPrIUMq3i64BgOKBf64xi643iSG/iMKpZ65Fj64Rj65Fj
65FcMLEUQ4JmQqxipLAUQ4JYOKRmNKIUMqVVQbEi62tVPKJn64Zi65FcNG/gMLBo
64RZPaJmMLFdPqsURqZgP0/WNG/aPqlgPrRZN0/WSG/V6B6hDhAUOKMUQqxhNG/V
PaBZQrFjQbAUML7Z64hiPrRi64NjQW/oO43o64ZiN4ZqOKFpMKki62Za65FcNG/i
MKpZ64Zn64tjR0/aPqlgPrRZN0/WSG/V6B6hDhAg65FcNKsUR4VVR0/iMKpZ64Zn
65FcNG/gMLBo64hiPrRi64tVPKIUOKsUR4VVR0/gOKtZ9UoU60.U60/7NW/tPrIU
Q57dPbEUMKsUOKtYOLNdN5JVP0/mNKBjQaEg65ZjRG/rOKlg64RZR0/V65/mOKto
NKEUQaJkPr7o65NZQbYUQqZhOKlVQW/oPm/oO4IUNaxpQWpbNKtZQa3oOKxi65/Z
N4ZbQaJZ64BcML7o64xi65FcNG/nMr7ZNKsi1EqZ62N/HIZAKG/GNKBjQaFn1G.U
60.U63FcNG/oPr.UO43n642UMbJoR4xi65Fj643YN0/iPrFZQm/jQW/oPm/qOKJr
65FcNG/XRL7mNKto64tjR4Jn9W/IO4JmNG/VQaIUMKlnPm/oRqwUMbJoR4xiQm/o
Pm/VR5FVMqUUPr6UN4JoMKBc64BcOKlYQaJi64NmPqoUR4VZ64BpQb7ZPbEUNa3h
OKlt64RmPrJk9UoU60.U60/IO4IUQaJnR0/jNW/oO4IURqZiN4xr64Zn642UNa3h
OKlt64RmPrJk64BcML7o9W/7R0/gOLBoQm/WMLBdMm/dPaNjQapVR4ZjPW/VMaxp
R0/ZMKBc65BkPrJnNG/VPaEUNK3XO0/XO4ZgN0/dPW/oO4IUNa3hOKlt9W/IO4IU
PqtgSG/YMLFV65ZjRG/XMKsUNKFdR0/dQm/oO4IUN43oNG/VPaEUQ4lVMqIUNaxm
65FcNG/hML7mOK3bNG/ZRaJiR0sUKKxp64BVPW/XP4ZXOm/VPbYUPa3hNG/gOLBo
NKEUOKsUR4VZ64NVPKZgSG/bQaxpQ0/oPm/nNKIUR4VVR0/dPaFdRaZYRK3gpLAU
Q4JYOKRmNKIUMqVVQbEi63FcNG/kPrBnOK7gNG/iMKpZQm/rOKlg64ZiMqlpN4IU
R4VZ64VpQq7VPaEg65FcNG/rOKNZ90/VP4kUMqVdP4FmNKsg65FcNG/kML7ZPbFn
64xa65FcNG/cRLBWMKtY90/oO4IUQ43mNKtoQm/jNW/oO4IURqZaNGkUMKtY65Bk
PrJnNLAUPqMUNK3XO0/XO4ZgN0sB60.U60/7NW/tPrIUQ57dPbEUMG/V64NVPKZg
SG/mNKBjQaEg65ZjRG/rOKlg64RZR0/V657ZQ4xmR0/qNL7t65BdPKZgML6UR4wU
R4VZ64NVPKZgSG/bQaxpQ0/XO43mR0/jPW/oO4IUQqBmNKJi9UoBdG/6FI32FJ6U
IaJXPr7Y1G.U60.U63FcNG/6NK3YNL6UIaJXPr7Y64Zn65BdPL/gSG/YOLBkP43t
NKEUOKsUMG/nNL7dNLAUPqMUNKFdR4ZiNm/aOKJgN5Ai63ZjRG/XMKsUPK3fNG/V
PaEUMqVVPaRZQm/tPrIURq3iR0.cQqJZ62V3EIF3IW/GNKBjQaEUNaxm65FcNG/h
NK3iOKtbQm/jNW/hPrBo64xa65FcNG/aOKJgN5Ad9W/EQaxWMK7gSG/oO4IUPqtg
SG/oO4ZiNrAUSKxp64pdNqVo64BcMKtbNG/VQaIUR4VZ64NdP4IUPa3hNG/VPaEU
R4VZ64VZMKFZQW/iPrFZQmsB1OIUIoxJIYB3637ZMqxmN5AB60.U60.UJ4VZ64Nd
QbBo65BZMrFdPqsUNKtoNL7n64FZR43dP5AUMK7jRLEUR4VZ65BjRL7XNG/nRKBc
643n643pR4VjQWkUR4ZoP4Ig643iN0/kRK7gOLBcNL6i63ZjRG/XMKsUMKlnPm/V
N4EUMG/gOKtf65Fj642UIYJEHpB7J2xGKG/GNKBjQaEURqVdMqUUN4JaOKtZQm/r
O4JmNG/oO4IUQqxpQaBZ64Zn65BoPr7ZN0sUFaZiMKlgSG/tPrIUMq3i643YN0/i
PrFZQm/VMaxpR0/oO4IUQqxpQaBZ9UoU60.U60/IO4IUPaJsR0/nNKBoOKxi64Rd
RaJn64ZiNaxmPK3oOKxi643WPrJo65RcMLEUMq3i647Z64NjRKtY64Zi65FcOLAU
QqxpQaBZ643iN0/iPrFZQm/VMaxpR0/oO4IUQqxpQaBZ64FVR42i1G.U60.U63Fc
NG/gMLBo65BZMrFdPqsUMq3i647Z65JnNKEUR4wUNKtoNL6UNLVXNL7kR5AUNb7j
PG/oO4IUQqxpQaBZ9UoBdG/GFJ/DIoZIHp7N637ZMqxmN5AB60.U60.UJ4VZQaIU
ML7Z64NdNKlYQm/oPm/ZPbFZQW/oO4IUPa3hNG/VPaEUMKFYQaJnQm/jNW/oO4IU
QaJkPrBdR4xmSG/jQW/jNW/nPqpZ64ljMq3oOKxi65RcNL7Z65BjRL7XNLAUML7Z
65BoPr7ZN0sUKKxp64BVPW/VP5Bj64JiR4Jm64tjR4Jn643WPrJo65FcNG/mNL/j
QqZoPr7t9UoBdG/HJI7BGJFIFJ6UIaJXPr7YQkoU60.U60/IO4JmNG/VQaIUNaZZ
P4Fn65Fj64JiR4Jm65FcNG/iMKpZ643iN0/VN4FmNLBn64xa643iSKxiNG/VMrFd
PaQUMLAUMG/nRK7hOLFoNL6UNaxm65FcNG/bNKtZMKljNqZXMKkUN43oMG/dPW/o
O4IUFoJ2EoxB62NdP4Ii1EqZ63BJEYp7IpB7HosUIaJXPr7YQkoU60.U60/IO4IU
IpJ0HIZHIoZDHW/GNKBjQaEUOLAUQqZhQ4lt64FdQr/gMLZZN0/VPaEUSKxp64BV
PW/XO43iNqIUMKtt64NdNKlY60VnNKIUIpJ0HIZHIoZDHW/GNKBjQaEUNaxm65Fc
NG/hNK3iOKtbQm/jNW/oO4IUNaZZP4Fn64Zi65FcOLAUR5ZkNG/jNW/mNKBjQaEd
9UoBdG/BJIlIGIp3F2Z/637ZMqxmN5AB60.U60.UJ4VZ63/ZN4ZbQaJZ62NjQapV
R0/YPqJn64tjR0/nRL/kPr7o64ppP5FdPKJYOK2UPq7eNKBoQmsUKKxp65BcPrJg
N0/pQqIUR4VZ62FZNa3pP5EUFoJ2OLF1HooUFaxmPK3o65Fj643YN0/hRKloOKpZ
N4ZV64NdP4IUP4ZiOrAUR4wUSKxpQW/5FIF1HooUNaZgNGsB
@@GeDF@@FTMIndex
0fE......0..8U.F.jwA.Dzy.zE.G....2U.........6..eNY.//../..c.....
.0..8U0NU0c......0..8U...........2U.../6.......6..2.0......1xAMU
........xOI.TE1z..1zzzzzzzw..TzzzzzAn..0zzzzztaN..DzzzzzNaM./Dzz
zzwnAk.3zzzzzk....PzzwnAzzw./zzznAnAn..6zzzAn7aN..bzzwnANaM.0jzz
nAknAk.9zzzAn.....nzztaNzzw.1TzzaNbAn..CzzyNaNaN..zzztaNNaM.2Dzz
aNYnAk.FzzyNaE.../9zzqNazzw.2zzzNaPAn..IzzxaNdaN./LzzqNaNaM.3jzz
NaMnAk.LzzxaNU.../XzznAnzzw.4TzzAnDAn..OzzwnAtaN./jzznAnNaM.5Dzz
AnAnAk.RzzwnAk.../vzzk..zzw.5zzz..1An..Uzzw..7aN.05zzk..NaM.6jzz
...nAk.Xzzw......0HAnDzzzzw.7QnAzzzAn..anAnzztaN.0TAnDzzNaM.8AnA
zzwnAk.dnAnzzk...0fAnAnAzzw.8wnAnAnAn..gnAnAn7aN.0rAnAnANaM.9gnA
nAknAk.jnAnAn....11An7aNzzw.AQnAaNbAn..mnAmNaNaN.1DAn7aNNaM.BAnA
aNYnAk.pnAmNaE...1PAn4Nazzw.BwnANaPAn..snAlaNdaN.1bAn4NaNaM.CgnA
NaMnAk.vnAlaNU...1nAn1Anzzw.DQnAAnDAn..ynAknAtaN.1zAn1AnNaM.EAnA
AnAnAk//nAknAk...29An...zzw.EwnA..1An./2nAk..7aN.2LAn...NaM.FgnA
...nAk/5nAk......2WNaTzzzzw.GNaNzzzAn./8aNbzztaN.2iNaTzzNaM.H7aN
zzwnAk/BaNbzzk...2uNaQnAzzw.HtaNnAnAn./EaNbAn7aN.34NaQnANaM.IdaN
nAknAk/HaNbAn....3GNaNaNzzw.JNaNaNbAn./KaNaNaNaN.3SNaNaNNaM.K7aN
aNYnAk/NaNaNaE...3eNaKNazzw.KtaNNaPAn./QaNZaNdaN.3qNaKNaNaM.LdaN
NaMnAk/TaNZaNU...40NaHAnzzw.MNaNAnDAn./WaNYnAtaN.4CNaHAnNaM.N7aN
AnAnAk/ZaNYnAk...4ONaE..zzw.NtaN..1An./caNY..7aN.4aNaE..NaM.OdaN
...nAk/faNY......4laNjzzzzw.PKNazzzAn./iNaPzztaN.4xaNjzzNaM.Q4Na
zzwnAk/lNaPzzk...57aNgnAzzw.QqNanAnAn./oNaPAn7aN.5JaNgnANaM.RaNa
nAknAk/rNaPAn....5VaNdaNzzw.SKNaaNbAn./uNaONaNaN.5haNdaNNaM.T4Na
aNYnAk/xNaONaE...5taNaNazzw.TqNaNaPAn.0.NaNaNdaN.63aNaNaNaM.UaNa
NaMnAk01NaNaNU...6FaNXAnzzw.VKNaAnDAn.04NaMnAtaN.6RaNXAnNaM.W4Na
AnAnAk07NaMnAk...6daNU..zzw.WqNa..1An.0ANaM..7aN.6paNU..NaM.XaNa
...nAk0DNaM......7.nAzzzzzw.YHAnzzzAn.0GAnDzztaN.7AnAzzzNaM.Z1An
zzwnAk0JAnDzzk...7MnAwnAzzw.ZnAnnAnAn.0MAnDAn7aN.7YnAwnANaM.aXAn
nAknAk0PAnDAn....7knAtaNzzw.bHAnaNbAn.0SAnCNaNaN.7wnAtaNNaM.c1An
aNYnAk0VAnCNaE...86nAqNazzw.cnAnNaPAn.0YAnBaNdaN.8InAqNaNaM.dXAn
NaMnAk0bAnBaNU...8UnAnAnzzw.eHAnAnDAn.0eAnAnAtaN.8gnAnAnNaM.f1An
AnAnAk0hAnAnAk...8snAk..zzw.fnAn..1An.0kAnA..7aN.92nAk..NaM.gXAn
...nAk0nAnA......9E..Dzzzzw.hE..zzzAn.0q..1zztaN.9Q..DzzNaM.i...
zzwnAk0t..1zzk...9c..AnAzzw.ik..nAnAn.0w..1An7aN.9o..AnANaM.jU..
nAknAk0z..1An....A...7aNzzw.kE..aNbAn.10..0NaNaN.AA..7aNNaM.l...
aNYnAk13..0NaE...AM..4Nazzw.lk..NaPAn.16../aNdaN.AY..4NaNaM.mU..
NaMnAk19../aNU...Ak..1Anzzw.nE..AnDAn.1C...nAtaN.Aw..1AnNaM.o...
AnAnAk1F...nAk...B6.....zzw.ok....1An.1I.....7aN.BI.....NaM.pU..
...nAk1Lvis......BXRrE......qPiv......1Oeec......Bi6W.......r5Rr
......1RJJI......Bt2F.......rm6W......1U2F2......C2..Cvi....sU..
rRo...1X..0vik...CE..8ee....tE..W6U...1a../rRk...CQ..3JJ....u...
F2E...1d...W6U...Cc../2F....uk....1ivU1g.....BrR.Co.....ivg.vU..
..0eeU1j.....6W6.D......RrQ.wE..../JJE1m.....2F2.DA.....6W6.x...
...F2E1pvivivivi.DPRrRrRrRo.xvivivivik1seeeeeeee.Da6W6W6W6U.ybRr
RrRrRk1vJJJJJJJJ.Dl2F2F2F2E.zG6W6W6W6U1y2F2F2F2F.Dw.............
.0..8U......6..e.2..0U......6..e.hTp/BXp.DY6.TLpqzQ/yTY6.TLpqzQ/
yTYA.TLpujTvFDXr.Tbt1.5pxT9rwjrtxk5tyF2/xTLmxk1xx../zTfuxk5tyFI/
xTLmxk9x..1vFDk..TruyjQ/yTYE.TLpxDTmzE6.zTfuxk5tyFA/xTLoxk1xx..1
zE1xyjfr.Tbt2k5pxTPryoHr..Dx.DruyjQ/yTYH.TLpxzTmzEI..Do.zTfuxk5t
yFM/xTLrxk1xx..0zE..zjo.yjfr.Tbt4.5pxTTr.To.yG1x..Dx..1xzjfuxk5t
yFE/xTLrxk1xx..2zE..zTfsxk5tyFI/xTLrxk5x.DcUz.1xzE1uyDQ/yTYG.TLp
xzQ.zTE..DrxyjXr.Tbt2E5pxTTr.Dro..5xyjLr.Tbt1U5pxTTrwjo.yjLr.Tbt
1.5pxTLrwzfpxk5tyEU/xTLPxk5tyEU/xTLPxk5tyF./xTLtxk1zyDQ.zyvr.Tbt
2.5pxTbr.Dzsxk1zvjQ/yTYT.TLpyTQ/zzTyzzvrzjw4xzTzzzTrzzvr.Dztxk5t
yG./xTLtxlHzxzzrxzzrzzTrzzTzxzTzxzTzxzzsxk5tyFo/xTLtxkjzxzzrxzzr
zzTrzzTxzzvr.Dzrxk5tyFs/xTLtxknzxzzrxzzrzzTrzzTzzDQ0zzTzyDQ/yTYV
.TLpyTQ5zzTzxzTzxzTyzkPrxzzzxzTzzjQ.zzbr.Tbt0.5pxRjr.Tbt/.1pqDY0
pzY.zk